home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / DMOD0007.SRP < prev    next >
Encoding:
Text File  |  1996-06-05  |  2.4 KB  |  140 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem direct connect script (8/10/95)dmod0007.srp
  3. rem Changes to version 2 include faster disconnect methods
  4. rem and general fine tuning of timeouts!
  5. rem Multitech MT 1932 ZDXK
  6.  
  7. label InitDevice
  8. echo off
  9. flush
  10. echo script[56]  
  11. send "atchar(13)"  
  12. timeout 2,modem_fail
  13. find    "OK"
  14.  
  15. label OffToGate
  16. rem Offline to Gate (also contains Pad to Gate)
  17. echo off
  18. flush
  19. echo script[57]
  20. send    "at{InitModemStr}char(13)"
  21. timeout 2,modem_fail
  22. find    "OK"
  23. send   "atd{DialMode}{PreTel}{SiteTel}{PostFix}char(13)"
  24. echo script[52]...
  25. timeout {DialTimeout},connect_fail
  26. finderr 0,BUSY,busy
  27. finderr 103,NO DIALTONE,connect_fail
  28. finderr 0,NO CARRIER,no_carrier  
  29. find "CONNECT"
  30. echo script[53] 
  31. send "char(13)"   
  32. timeout 2,Bad_PadPrompt
  33. finderr 0,PAD>,Good_PadPrompt
  34. find "ZZZ"
  35. label Bad_PadPrompt
  36. echo script[58]
  37. send "char(13)"
  38. timeout 2,pad_fail
  39. find "PAD>"
  40. label Good_PadPrompt
  41. label PadToGate
  42. echo off
  43. send    "SER{SUB}char(13)"
  44. timeout 2,nua_bad1
  45. finderr 0,COM,nua_good
  46. find    "ZZZ"
  47. label nua_bad1
  48. send    "SER{SUB}char(13)"
  49. timeout 2,nua_bad2
  50. finderr 0,COM,nua_good
  51. find    "ZZZ"
  52. label nua_bad2
  53. send    "SER{SUB}char(13)"
  54. timeout 2,nua_fail
  55. find    "COM"
  56. label nua_good
  57. echo script[54].
  58. end
  59.  
  60. label GateToPad
  61. echo off
  62. send    "char(16)CLRchar(13)"
  63. timeout 2,ctrl_p_clear_fail
  64. find    "CONF"
  65. echo script[91]...
  66. end
  67.  
  68. label GateToOff
  69. label PadToOff
  70. echo off
  71. send   "+"
  72. mwait 100
  73. send   "+"
  74. mwait 100
  75. send   "+atchar(13)"
  76. timeout 2,hang_fail_retry
  77. find    "OK"
  78. echo script[97]
  79. send   "at{TermModemStr}char(13)"
  80. timeout 2,hang_Fail
  81. find    "OK"
  82. echo script[99].
  83. end
  84.  
  85. label modem_offline
  86. echo off
  87. send   "+"
  88. mwait 100
  89. send   "+"
  90. mwait 100
  91. send   "+atchar(13)"
  92. timeout 2,hang_fail_retry
  93. find    "OK"
  94. echo script[97]
  95. send   "at{TermModemStr}char(13)"
  96. timeout 2,hang_Fail
  97. find    "OK"
  98. echo script[99].
  99. abort
  100.  
  101. label hang_fail_retry
  102. send   "at{TermModemStr}char(13)" 
  103. timeout 2,hang_fail
  104. find    "OK"
  105. echo script[99].
  106. abort
  107.  
  108. label hang_fail
  109. echo script[98].
  110. abort
  111.  
  112. label modem_fail
  113. echo script[23]
  114. goto modem_offline
  115.  
  116. label connect_fail
  117. echo script[1]
  118. goto modem_offline
  119.  
  120. label busy
  121. echo script[2]
  122. goto modem_offline
  123.  
  124. label no_carrier
  125. echo script[3]
  126. goto modem_offline
  127.  
  128. label nua_fail
  129. echo script[22]
  130. goto modem_offline
  131.  
  132. label ctrl_p_clear_fail
  133. echo script[14]
  134. goto modem_offline
  135.  
  136. label command_mode_fail
  137. echo script[15]
  138. goto modem_offline
  139.  
  140.